﻿SuperStrict

Import sedm.OIS
Import brl.d3d7max2d

Graphics 800, 600
Local hwnd:Int = GetForegroundWindow()

Local inp:TOIS = TOIS.Init(hwnd, GraphicsWidth(), GraphicsHeight())

SetColor(255, 255, 255)
Repeat
	Cls
	
	inp.Update()
	
	Local m:String = ""
	m:+ "MouseX(): " + String(inp.MouseX()) + " "
	m:+ "MouseY(): " + String(inp.MouseY()) + " "
	m:+ "MouseXSpeed(): " + String(inp.MouseXSpeed()) + " "
	m:+ "MouseYSpeed(): " + String(inp.MouseYSpeed())
	DrawText(m, 10, 10)
	
	Flip()
Until inp.KeyDown(1)

End
